home *** CD-ROM | disk | FTP | other *** search
Modula Implementation | 1995-11-25 | 3.9 KB | 123 lines |
-
- IMPLEMENTATION MODULE MindMachine;
- (* Version*: 20.12.89 00:16*)
-
- FROM SYSTEM IMPORT VAL;
- FROM MegaBrain IMPORT Up,Down,Stay, SetFrequence;
- PROCEDURE LC(int:INTEGER):LONGCARD;
- BEGIN
- RETURN VAL(LONGCARD,int);
- END LC;
-
- PROCEDURE Change(FreqGang :FrequenzGangARRAY );
- VAR i:INTEGER;
- BEGIN
- IF (FreqGang[1]<>0) AND (FreqGang[2]<>0) THEN
-
- SetFrequence(FreqGang[1]);
- IF (FreqGang[1] = FreqGang[2]) OR (FreqGang[3] =0) THEN
- Stay(LC(FreqGang[3]),CHR(FreqGang[4]),CHR(FreqGang[5]),
- CHR(FreqGang[6]),CHR(FreqGang[7]));
- ELSIF FreqGang[1]<FreqGang[2] THEN
- Up(FreqGang[2],LC(FreqGang[3]),CHR(FreqGang[4]),CHR(FreqGang[5]),
- CHR(FreqGang[6]),CHR(FreqGang[7]));
- ELSIF FreqGang[1]>FreqGang[2] THEN
- Down(FreqGang[2],LC(FreqGang[3]),CHR(FreqGang[4]),CHR(FreqGang[5]),
- CHR(FreqGang[6]),CHR(FreqGang[7]));
- END(*IF*);
- END(*IF*);
- END Change;
-
- PROCEDURE HaraldWessbacher;
- BEGIN
- SetFrequence(15);
- Down(7,1,CHR(224),CHR(7),CHR(0),CHR(0));
- Stay(180,CHR(239),CHR(239),CHR(0),CHR(0));
- Down(5,1,CHR(15),CHR(15),CHR(0),CHR(0));
- Stay(120,CHR(232),CHR(232),CHR(0),CHR(0));
- Up(18,6,CHR(224),CHR(7),CHR(0),CHR(0));
-
- END HaraldWessbacher;
-
- PROCEDURE LutzMehlhorn;
- BEGIN
- SetFrequence(15);
- Down(7,2,CHR(231),CHR(231),CHR(0),CHR(0));
- Stay(120,CHR(239),CHR(239),CHR(0),CHR(0));
- Down(5,1,CHR(15),CHR(232),CHR(0),CHR(0));
- Stay(120,CHR(232),CHR(232),CHR(0),CHR(0));
- Up(18,6,CHR(224),CHR(7),CHR(0),CHR(0));
-
- END LutzMehlhorn;
- PROCEDURE MidsummerNight;
- BEGIN
- SetFrequence(15);
- Down(10,1,CHR(231),CHR(231),CHR(0),CHR(0));
- Stay(240,CHR(239),CHR(239),CHR(0),CHR(0));
- Down(8,1,CHR(15),CHR(232),CHR(0),CHR(0));
- Stay(240,CHR(232),CHR(232),CHR(0),CHR(0));
- Stay(120,CHR(15),CHR(232),CHR(0),CHR(0));
- Stay(240,CHR(15),CHR(15),CHR(0),CHR(0));
- Stay(360,CHR(239),CHR(239),CHR(0),CHR(0));
- Up(18,6,CHR(224),CHR(7),CHR(0),CHR(0));
- END MidsummerNight ;
-
- PROCEDURE EarthHarmonie;
- BEGIN
- SetFrequence(08);
- Down(7,1,CHR(231),CHR(231),CHR(0),CHR(0));
- Stay(1,CHR(239),CHR(239),CHR(0),CHR(0));
- Up(8,1,CHR(15),CHR(15),CHR(232),CHR(232));
- Stay(60,CHR(232),CHR(232),CHR(0),CHR(15));
- Stay(60,CHR(15),CHR(15),CHR(232),CHR(232));
- Stay(60,CHR(15),CHR(15),CHR(0),CHR(232));
- Stay(80,CHR(239),CHR(239),CHR(0),CHR(0));
- Up(18,6,CHR(224),CHR(224),CHR(7),CHR(7));
- Stay(0,CHR(239),CHR(239),CHR(0),CHR(0));
- END EarthHarmonie;
-
- PROCEDURE RuhevolleWachheit;
- BEGIN
- SetFrequence(30);
- Down(18,4,CHR(231),CHR(231),CHR(0),CHR(0));
- Down(7,1,CHR(224),CHR(7),CHR(0),CHR(0));
- Up(12,5,CHR(15),CHR(232),CHR(0),CHR(0));
- Down(10,3,CHR(232),CHR(232),CHR(0),CHR(0));
- Down(8,1,CHR(15),CHR(232),CHR(0),CHR(0));
- Down(7,1,CHR(224),CHR(7),CHR(0),CHR(0));
- Stay(180,CHR(239),CHR(239),CHR(0),CHR(0));
- Down(5,1,CHR(15),CHR(15),CHR(0),CHR(0));
- Stay(120,CHR(232),CHR(232),CHR(0),CHR(0));
- Up(18,6,CHR(224),CHR(7),CHR(0),CHR(0));
- Up(30,6,CHR(224),CHR(7),CHR(0),CHR(0));
- END RuhevolleWachheit;
-
- PROCEDURE AllgBenutzung;
- BEGIN
- SetFrequence(30);
- Down(18,1,CHR(231),CHR(231),CHR(0),CHR(0));
- Down(10,9,CHR(239),CHR(239),CHR(0),CHR(0));
- Up(12,5,CHR(15),CHR(232),CHR(0),CHR(0));
- Down(10,3,CHR(232),CHR(232),CHR(0),CHR(0));
- Down(7,1,CHR(15),CHR(232),CHR(0),CHR(0));
- Up(10,2,CHR(15),CHR(15),CHR(0),CHR(0));
- Up(15,4,CHR(239),CHR(239),CHR(0),CHR(0));
- Up(30,6,CHR(224),CHR(7),CHR(0),CHR(0));
- END AllgBenutzung ;
-
- PROCEDURE Anregung;
- BEGIN
- SetFrequence(30);
- Down(18,1,CHR(231),CHR(231),CHR(0),CHR(0));
- Up(22,9,CHR(239),CHR(239),CHR(0),CHR(0));
- Down(15,1,CHR(15),CHR(232),CHR(0),CHR(0));
- Up(25,9,CHR(232),CHR(232),CHR(0),CHR(0));
- Down(15,7,CHR(15),CHR(232),CHR(0),CHR(0));
- Up(20,5,CHR(15),CHR(15),CHR(0),CHR(0));
- Up(22,7,CHR(239),CHR(239),CHR(0),CHR(0));
- Up(25,6,CHR(224),CHR(7),CHR(0),CHR(0));
- END Anregung ;
-
-
- END MindMachine.
-